home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / cdbmail.arc / RUNOPUS.BAT < prev    next >
Encoding:
DOS Batch File  |  1987-08-14  |  2.6 KB  |  104 lines
  1. echo off
  2.  
  3. :loop
  4. cd \opus
  5. :doit
  6. erase lastuser.bbs
  7. eveclock >null
  8. opus bbs -u
  9.         if errorlevel 200 goto midnight
  10.         if errorlevel 190 goto rebuild
  11.         if errorlevel 180 goto archive
  12.         if errorlevel 100 goto mashit
  13.         if errorlevel 25 goto endcall
  14.     if errorlevel 1 goto exit
  15.     goto end
  16.  
  17. :mashit
  18. ommm -hc:\opus\outbound -cc:\opus\ommm.ctl -ic:\opus\bbs.prm -mc:\opus\msgs\20
  19.  
  20. :endcall
  21. if not exist lastuser.bbs goto doit
  22. at com1: H1
  23. msgupd
  24. goto loop
  25.  
  26. :midnight
  27. dtr com1: on
  28. at com1: H1
  29. erase echotoss.log
  30. ommm -hc:\opus\outbound -cc:\opus\ommm.ctl -ic:\opus\bbs.prm -mc:\opus\msgs\20
  31. renum -r 1 -r 2 -r 3 -r 4 -r 5 -r 6 -r 7 -r 8 -r 9 -r 10 -r 11 -r 12
  32. renum -r 13 -r 14 -r 15 -r 16 -r 17 -r 18 -r 19 -r 20 
  33. renum -r 50 -r 51 -r 99 
  34. msgcom
  35.  
  36. :newstat
  37. dtr com1: on
  38. at com1: H1
  39. opustats/USAGE=USAGE.RPT/SUMMARY=SUMMARY.RPT/DAYS=14
  40. if not exist files\20\fnews*.* goto eloop
  41. copy files\20\fnews*.* fidonews
  42. erase files\20\fnews*.*
  43.  
  44. :eloop
  45. cdblist
  46. erase files\01\allfiles.arc
  47. erase files\01\newfiles.txt
  48. arca files\01\allfiles.arc allfiles.txt
  49. copy newfiles.txt files\01
  50. rem cleanbbs
  51. cdbnewf
  52.  
  53. :newnode
  54. if not exist files\20\nodediff.a* goto label1
  55. copy files\20\nodediff.a* C:
  56. pkx nodediff.a*
  57. erase nodelist.bbs
  58. erase nodelist.sys
  59. copy xlatlist.fid xlatlist.ctl
  60. xlatlist >dump1
  61. opusnode -f
  62. erase nodediff.*
  63. copy files\20\nodediff.a* \nodefile
  64. erase files\20\nodediff.a*
  65. :label1
  66. eveclock
  67. goto loop
  68.  
  69. :rebuild
  70. dtr com1: on
  71. at com1: H1
  72. eveclock
  73. ommm -hc:\opus\outbound -cc:\opus\ommm.ctl -ic:\opus\bbs.prm -mc:\opus\msgs\20
  74. chkdsk >chklst
  75. goto loop
  76.  
  77. :archive
  78. dtr com1: ON
  79. at com1: H1
  80. copy user.bak user.bk1
  81. copy user.bbs user.bak
  82. arcmsg vietvets 15 keep 100 -move 30 -killprivate -noseenby -pkarc
  83. arcmsg science 21 keep 100 -move 30 -killprivate -noseenby -pkarc
  84. arcmsg sf 22 keep 100 -move 30 -killprivate -noseenby -pkarc
  85. arcmsg tech 23 keep 100 -move 30 -killprivate -noseenby -pkarc
  86. arcmsg gaming 24 keep 100 -move 30 -killprivate -noseenby -pkarc
  87. arcmsg politics 25 keep 100 -move 30 -killprivate -noseenby -pkarc
  88. arcmsg c_echo 26 keep 100 -move 30 -killprivate -noseenby -pkarc
  89. arcmsg forsale 27 keep 100 -move 30 -killprivate -noseenby -pkarc
  90. arcmsg survive! 28 keep 100 -move 30 -killprivate -noseenby -pkarc
  91. arcmsg survsale 29 keep 100 -move 30 -killprivate -noseenby -pkarc
  92. arcmsg beyond 30 keep 100 -move 30 -killprivate -noseenby -pkarc
  93. arcmsg meadow 61 keep 100 -move 30 -killprivate -noseenby -pkarc
  94. arcmsg fidosys 62 keep 100 -move 30 -killprivate -noseenby -pkarc
  95. eveclock
  96. goto loop
  97.  
  98. :exit
  99. DTR COM1: ON
  100. at com1: H1
  101. cls
  102. echo Pinecliffe BBS Done!
  103.  
  104.